﻿Imports System.Collections.Generic
Imports EnvDTE
Imports System.Linq
Imports EnvDTE80


Public Class ProjectItemCollection
  Inherits List(Of ProjectItem)

  Function ContainsFullPath(fullPath As String) As Boolean
    For Each item As ProjectItem In Me
      Dim itemPath = item.TryGetPropertyValue(ePropertyName.FullPath).ToLower()
      If itemPath = fullPath Then
        Return True
      End If
    Next
    Return False
  End Function


End Class
